home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / comm / dlg / DLG_Correct.lha / DLG_Correct.txt < prev    next >
Text File  |  1995-06-21  |  4KB  |  117 lines
  1.                         DLG's Correct & Export
  2.                          Problem Solution Fix
  3.                                  v1.2
  4.  
  5.                             June 21, 1995
  6.  
  7. Okay, after hearing how everyone (including myself) uses DLG's message
  8. correct feature as a god-send, here is a solution I hacked together to
  9. ensure that the filenote is re-appended to a message after being
  10. corrected so that it will properly export.
  11.  
  12. **CHANGES**  Unlike the first release of this fix (seen in a previous
  13. message, this version will not die if it comes across a message not
  14. having a filenote.  It will instead create a new one using the
  15. original sender's name and the current date/time.  Although this will
  16. work fine for PDQ's needs, it will also create a filenote for messages
  17. that have been imported.  No harm though I suppose :)
  18.  
  19. I also assume that this fix will only work for those who use the
  20. [C]orrect feature from the DLG Message Menu.  I think 3rd party
  21. programs, such as Bob Stouder's exceptional TurboRead, directly access
  22. the dlg.library leaving the lacking of a filenote after correcting a
  23. message.
  24.  
  25. To make the proper changes, you will need to modify your menu entry
  26. for the [C] CORRECT function.  Change the menu entry to this:
  27.  
  28.     MenuScript: (path/file) DLGConfig:Batch/DLG_Correct.menuscr
  29.     Overlay
  30.     NoCLI
  31.  
  32. The rest of the options can probably stay the same.
  33.  
  34. You MUST have LIST, DATE, and FILENOTE in the C: directory, and AREXX
  35. must be installed and running!!
  36.  
  37. Now put the following three files into the DLGConfig:Batch/ directory.
  38. The first file, the .menuscr, can be entered while changing the menu
  39. entry parameters.
  40.  
  41. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  42. ~~~ FILE: DLGConfig:Batch/DLG_Correct.menuscr           ~~~
  43. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  44. BATCH   DLGConfig:Batch/DLG_Correct.batch %Msg_AreaNumber %Msg_MsgNumber "%Msg_From"
  45. BUILTIN MSG_Correct
  46. AREXX   DLGConfig:Batch/DLG_Correct.rexx
  47.  
  48.  
  49. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  50. ~~~ FILE: DLGConfig:Batch/DLG_Correct.batch ~~~
  51. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  52. .key area,msgnum,from
  53. .bra [
  54. .ket ]
  55.  
  56. echo >t:dlg_correct "MSG:[area]/[msgnum].msg"
  57. echo >>t:dlg_correct "[from]"
  58. list >>t:dlg_correct msg:[area]/[msgnum].msg nohead
  59.  
  60.  
  61. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  62. ~~~ FILE: DLGConfig:Batch/DLG_Correct.rexx ~~~
  63. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  64. /* restore filenote to msg */
  65. /* jon d. godfrey, re0273  */
  66.  
  67. call open(d,'T:dlg_correct',R)
  68.   file = readln(d)
  69.   from = readln(d)
  70.   junk = readln(d)
  71.   note = readln(d)
  72.  
  73.   if eof(d)=1 then do
  74.  
  75.     address command "c:date >ram:date"
  76.     call open(a,'ram:date',R)
  77.       data=readln(a)
  78.     call close(a)
  79.  
  80.     parse var data dayname' 'date' 'time
  81.     dayname = left(dayname,3)
  82.     parse var date day'-'month'-'year
  83.     time = left(time,5)
  84.     newdate = dayname' 'day' 'month' 'year' 'time
  85.  
  86.     note = 'Created: 'newdate', by 'from
  87.  
  88.   end
  89.   else do
  90.  
  91.     note = right(note,length(note)-2)
  92.  
  93.   end
  94.  
  95. call close(d)
  96.  
  97. operation = 'c:filenote '||file||' "'note'"'
  98. address command operation
  99. address command "c:delete >NIL: t:dlg_correct"
  100.  
  101. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  102.  
  103. Well, I've only done about an three hour's worth of testing and it seems to
  104. be doing what it's supposed to.  If you got any questions or improvements
  105. to offer, please let us all know.
  106.  
  107. An archive containing this text and the three files will also be
  108. available for FREQ under the magic name of "CORRECT" at 1:212/1005.
  109.  
  110.  --- I show a clear pattern of unpredictability.
  111.  
  112.       __
  113.  __  ///                            InterNet: jdgodfre@slonet.org
  114.  \\\///  Jon Godfrey                    Fido: 1:212/1005
  115.   \XX/   Moderator, Z40_AmySale     AmigaNet: 40:409/10
  116.  
  117.